﻿Imports System.Web.HttpUtility

Public Class Form1

  Private Sub ButtonDecode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonDecode.Click
    Dim frm As New Viewer

    If Me.TextBox1.Text.Trim.Length > 0 Then
      For Each line As String In Me.TextBox1.Text.Split(vbCrLf)
        Dim str() As String = line.Split(" ")
        If str.Count = 2 Then
          frm.AddItem(UrlDecode(str(0)), UrlDecode(str(1)))
        End If
      Next
    End If

    frm.ShowDialog()
  End Sub

  Private Sub ButtonClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonClose.Click
    Me.Close()
  End Sub
End Class
